(make_fixnum_or_float): Coerce double to int explicitly.

diff --git a/src/lisp.h b/src/lisp.h
index f913fe1998e4cec16c3688dfb0748f3a461b858b..942bd5e9815b7889f66c1def7ae83eef88526ff7 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3153,4 +3153,4 @@ extern Lisp_Object Vdirectory_sep_char;
    fixnum.  */
 
 #define make_fixnum_or_float(val) \
-   (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val))
+   (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val)))